Ellipsoid Derived Type
type, public :: Ellipsoid
Components
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=Float), | public | :: | a |
semi-major axis |
|||
| real(kind=Float), | public | :: | b |
semi-minor axis |
|||
| integer(kind=short), | public | :: | code |
EPSG code |
|||
| real(kind=Float), | public | :: | e |
eccentricity |
|||
| real(kind=Float), | public | :: | e_second |
second eccentricity |
|||
| character(len=100), | public | :: | epsg |
EPSG string |
|||
| real(kind=Float), | public | :: | f |
flattening |
|||
| real(kind=Float), | public | :: | inv_f |
a/(a-b) |
|||
| character(len=100), | public | :: | name |
Source Code
TYPE :: Ellipsoid !primary ellipsoid parameters CHARACTER (LEN = 100) :: name INTEGER (KIND = short) :: code !!EPSG code CHARACTER (LEN = 100) :: epsg !!EPSG string REAL (KIND = Float) :: a !!semi-major axis REAL (KIND = Float) :: b !!semi-minor axis REAL (KIND = Float) :: inv_f !!a/(a-b) !derived ellipsoid parameters REAL (KIND = Float) :: e !!eccentricity REAL (KIND = Float) :: f !!flattening REAL (KIND = Float) :: e_second !!second eccentricity END TYPE ellipsoid